#!/usr/bin/perl

use utf8;
use strict;
use warnings;

while (<>) {
	if (/(\S)\1/) {
		print;
	}
}